|
VB 加油站
A 入门技巧
B API
C 用户界面
D 网络
E 控件
F 文件系统
H 多媒体
I 数据库
J 程序应用
K 外设
Z 其他
下载区域
技术文档
原创空间
写留言
看留言
VB讨论
友情连接
回到首页
Win加油站
E-Mail
| |
用VB 5.0设计屏幕保护程序
李波涛
使用Visual Basic 5.0很容易建立屏幕保护程序。实际上任何VB应用程序都可以作为屏幕保护程序来运行，只是有的程序更适于作为屏幕保护程序。要想使自己的应用程序成为Wi
ndows环境中屏幕保护程序，需要将该程序作为屏幕保护程序来编译。具体方法是：从File
菜单上选定Make EXE File，在Make EXE File对话框中作以下改动：不再建立带扩展名为EX
E的可执行文件，而是把扩展名改为SCR。
- 下面讨论一下在设计屏幕保护程序时应注意的几个问题。
1.如何防止同时运行屏幕保护程序的两个实例
- Visual Basic提供了一个App对象，它有一个PreInstance属性，如果当前已经有一个Vi
sual Basic应用程序的实例在运行，就可把该属性设置为True，从而避免同时运行一个屏幕保护程序的多个实例。
- 下面的代码显示App.PreInstance在屏幕保护程序中的实现：
- If App.PreInstance=True then
- Unload Me
- Exit Sub
- End If
- 此外，还有一种更好的方法可以避免同时运行一个屏幕保护程序的多个实例。使用一个通知操作系统已经有一个屏幕保护程序被激活的Windows
95 API函数SystemParametersInfo ，其声明如下：
- Private Declare Function SystemParametersInfo Lib “user32” Alias “SystemP
arametersInfoA” (
- ByVal uAction As Long,
- ByVal uParam As Long,
- ByVal lpvParam As Any,
- ByVal fuWinIni As Long
- ) As Long
- 在窗体加载事件的开始对这个函数调用一次，并在窗体卸载事件期间再调用一次。这两个调用必须成对出现并且二者必须在屏幕保护程序的执行期间进行调用。
- 以下是在窗体加载事件中对该函数的调用：
- x=SystemParametersInfo(17,0,ByVal 0＆,0)
- 以下是在窗体卸载事件中对该函数的调用：
- x=SystemParametersInfo(17,1,ByVal 0＆,0)
2.如何在屏幕保护程序中隐藏鼠标光标
- ShowCursor API函数允许在Visual Basic应用程序中隐藏或显示鼠标光标，Windows通过更改一个计数变量来跟踪鼠标光标的可视性：每次用参数值True调用ShowCursor使该计数递增，用参数值False调用ShowCursor使该计数递减，如果该计数为0或者更小，鼠标光标就自动隐藏起来。以下是ShowCursor
API函数的声明：
- Private Declare Function ShowCursor Lib “user32” (ByVal bShow As Long
- ) As Long
- 下面是两个使用ShowCursor函数的例子。
- 显示鼠标光标：
- Private Sub ShowMouse()
- While ShowCursor(True)＜=0
- Wend
- End Sub
- 隐藏鼠标光标：
- Private Sub HideMouse()
- While ShowCursor(False)＞0
- Wend
- End Sub
3.如何检测鼠标的移动
- MouseMove事件用来检测鼠标的移动，当应用程序启动时，甚至在鼠标实际上并未移动的情况下，MouseMove事件都会触发一次。所以第一次触发MouseMove事件时，只是记录鼠标当前位置，仅当鼠标真正从其起始位置移开时，才终止屏幕保护程序。具体实现代码如下：
- Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single)
- Static XLast, YLast As Single
- Dim XNow, YNow As Single
- '记录当前位置
- XNow = X
- YNow = Y
- '第一次触发MouseMove事件，记录
- 当前位置
- If XLast = 0 And YLast = 0 Then
- XLast = XNow
- YLast = YNow
- Exit Sub
- 'End If
- '仅当鼠标移动足够迅速（一次2个像素以上）才恢复屏幕 If Abs(XNow
－ XLast) ＞ 2 Or Abs(YNow － YLast) ＞ 2 Then
- QuitFlag = True
- End If
- End Sub
4.如何检测鼠标单击
- Form_Click事件用来检测鼠标单击，Form_Click事件的具体代码如下：
- Private Sub Form_Click()
- '鼠标单击，结束屏幕保护程序
- QuitFlag=True
- End Sub
5.如何检测键盘的活动
- Form_KeyDown事件用来检测键盘的活动，当按下任何一个键（包括Shift键）时，都能结束屏幕保护程序。Form_KeyDown事件的具体代码如下：
- Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
- '按下键盘，结束屏幕保护程序
- QuitFlag = True
- End Sub
- 通常，屏蔽保护程序中几个重要属性设置值如下：Form窗体BorderStyle为0－None，Co
ntrolBox为False，KeyPreview为True，MaxButton和MinButton为False，WindowState为2－
Maximized，定义窗体级变量QuitFlag（Dim QuitFlag as Boolean）。Timer控件（在Form
窗体中）Enabled属性在设计环境中设置为False。
- 本文给出一个完整的屏幕保护程序实例，其演示效果为：把当前的显示复制到一个全屏幕的窗体中，然后随机地在屏幕上画一些实心彩色小圆，并随机显示彩色字样“Baby,I
lov e you!”。同时，在屏幕底部有一移动的图片框，读者可以在设计环境中添加自己喜欢的图片。在本屏幕保护程序中，设置Timer控件的Name属性为tmrExitNotify；在窗体底部添加一个PictureBox控件，设置其Name属性为picture1。
- 在调试本程序时，有一技巧值得说明，可将Form_Load事件中Select Case…End
Select 语句稍作修改如下：
- ●将Case “/S”注释掉，在其下添加Case Else语句；
- ●将Case Else/Unload Me/Exit Sub三条语句注释掉。
- 这样，可在VB5.0环境下调试本程序，并预览演示效果。在调试完成后，再将上述修改恢复原样，编译成后缀为.SCR的文件，即可得到屏幕保护程序。
-
计算机世界
|
